Sub muestra_Switch()
    Dim tam, desTam As String
    tam = "m"
    desTam = Switch(tam = "p", "Pequeo", _
    tam = "m", "Mediano", _
    tam = "g", "Grande")
    Debug.Print "tam = (" & tam & ") desTam -> " & desTam
End Sub
